


Namespace general
Public Class sysdiagrams

public Function Listar(Diagram_id as integer) as Entity.general.sysdiagrams

dim objEnt as  New entity.general.sysdiagrams
dim obj as  New Data.general.sysdiagrams
return obj.Listar(Diagram_id)

End Function


'***************************



public Function Listar( _
		Name as String, _
		Principal_id as Integer, _
		Diagram_id as Integer, _
		Version as Integer, _
		Definition as String) _
as  Entity.general.sysdiagramsCol

dim objCol as  New entity.general.sysdiagramsCol
dim obj as  New Data.general.sysdiagrams
return obj.listar(" ", _
		Name, _
		Principal_id, _
		Diagram_id, _
		Version, _
		Definition)

End Function

End Class



end namespace

